|
100
|
How can I change the group's caption
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
With .Groups.Add("Group 1")
.AddItem "Item 1"
.AddItem "Item 2"
.AddItem "Item 3"
.Caption = "new caption"
.Expanded = True
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
99
|
How can I get the number or count of items in a group
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
With .Groups.Add("Group 1")
.AddItem "Item 1"
.AddItem "Item 2"
.AddItem "Item 3"
.AddItem .Count
.Expanded = True
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
98
|
How can I access an item in a group
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
With .Groups.Add("Group 1")
.AddItem "Item 1"
.AddItem "Item 2"
.AddItem "Item 3"
.Item(1).Bold = True
.Expanded = True
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
97
|
How can I remove all items, from a group
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
With .Groups.Add("Group 1")
.AddItem "Item 1"
.AddItem "Item 2"
.AddItem "Item 3"
.Clear
.Expanded = True
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
96
|
How can I remove an item, from a group
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
With .Groups.Add("Group 1")
.AddItem "Item 1"
.AddItem "Item 2"
.AddItem "Item 3"
.RemoveItem 1
.Expanded = True
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
95
|
How can I add a new item to a group
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
With .Groups.Add("Group 1")
.AddItem "Item 1",1
.Expanded = True
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
94
|
How can I add a new item to a group
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
.Groups.Add("Group 1").AddItem "Item 1"
End With
End Function
</SCRIPT>
</BODY>
|
|
93
|
How can I add a new item to a group
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
With .Groups.Add("Group 1")
.AddItem "Item 1"
.Expanded = True
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
92
|
How can I get the groups as they are listed
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
With .Groups
.Add "Group 1"
.Add "Group 2"
.Add "Group 3"
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
91
|
How can I access a group by position
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
With .Groups
.Add "Group 1"
.Add "Group 2"
.Add "Group 3"
.ItemByPos(1).Bold = True
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
90
|
How can I access a group
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
With .Groups
.Add "Group 1"
.Add "Group 2"
.Add "Group 3"
.Item(1).Bold = True
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
89
|
How can I clear the groups collection
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
With .Groups
.Add "Group 1"
.Add "Group 2"
.Add "Group 3"
.Clear
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
88
|
How can I remove a group
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
With .Groups
.Add "Group 1"
.Add "Group 2"
.Add "Group 3"
.Remove 1
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
87
|
How can I add a group
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
With .Groups.Add("Group 1")
.AddItem "Item 1"
.AddItem "Item 2"
.Expanded = True
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
86
|
How do I count the number of groups
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
With .Groups
.Add "Group 1"
.Add "Group 2"
.Add "Group 3"
.Add .Count
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
85
|
How can I display pictures with a custom size, instead icons, in the shortcut bar
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
.ShowShortcutBar = True
.Groups.Add("Group 1").Shortcut = "Set 1"
.Groups.Add("Group 2").Shortcut = "Set 1"
.Groups.Add("Group 3").Shortcut = "Set 2"
.Groups.Add("Group 4").Shortcut = "Set 2"
.ShortcutPicture("Set 1") = ExplorerBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
.ShortcutPicture("Set 2") = ExplorerBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\auction.gif`)")
.ShortcutPictureWidth = 32
.ShortcutPictureHeight = 32
.ShortcutBarHeight = 32
End With
End Function
</SCRIPT>
</BODY>
|
|
84
|
How can I display pictures instead icons, in the shortcut bar
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
.ShowShortcutBar = True
.Groups.Add("Group 1").Shortcut = "Set 1"
.Groups.Add("Group 2").Shortcut = "Set 1"
.Groups.Add("Group 3").Shortcut = "Set 2"
.Groups.Add("Group 4").Shortcut = "Set 2"
.ShortcutPicture("Set 1") = ExplorerBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
.ShortcutPicture("Set 2") = ExplorerBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\auction.gif`)")
.ShortcutBarHeight = 44
End With
End Function
</SCRIPT>
</BODY>
|
|
83
|
How can I change the visual appearance of the shortcut bar, using EBN files
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
.VisualAppearance.Add 2,"c:\exontrol\images\pushed.ebn"
.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
.ShowShortcutBar = True
.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
.ShortcutResizeBackColor = &H2000000
.ShortcutBarSelCaptionBackColor = &H1000000
.ShortcutBarSelBackColor = &H1000000
.BackColorGroup = &H1000000
End With
End Function
</SCRIPT>
</BODY>
|
|
82
|
How can I change the visual appearance of the separator between groups and the shortcut bar, using your EBN files
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
.ShowShortcutBar = True
.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
.ShortcutResizeBackColor = &H1000000
.ExpandShortcutCount = 1
End With
End Function
</SCRIPT>
</BODY>
|
|
81
|
How do I change the background color of the separator between groups and the shortcut bar
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
.ShowShortcutBar = True
.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
.ShortcutResizeBackColor = RGB(255,0,0)
.ExpandShortcutCount = 1
End With
End Function
</SCRIPT>
</BODY>
|
|
80
|
How can I change the visual appearance of the shortcut bar, using your EBN files
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
.ShowShortcutBar = True
.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
.ShortcutBarSelCaptionBackColor = &H1000000
.ExpandShortcutCount = 1
End With
End Function
</SCRIPT>
</BODY>
|
|
79
|
How do I change the selection background color in the shortcut bar
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
.ShowShortcutBar = True
.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
.ShortcutBarSelCaptionBackColor = RGB(255,0,0)
.ExpandShortcutCount = 1
End With
End Function
</SCRIPT>
</BODY>
|
|
78
|
How can I change the visual appearance of the shortcut bar, using your EBN files
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
.ShowShortcutBar = True
.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
.ShortcutBarSelBackColor = &H1000000
End With
End Function
</SCRIPT>
</BODY>
|
|
77
|
How do I change the selection background color in the shortcut bar
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
.ShowShortcutBar = True
.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
.ShortcutBarSelBackColor = RGB(255,0,0)
End With
End Function
</SCRIPT>
</BODY>
|
|
76
|
How can I change the visual appearance of the shortcut bar, using your EBN files
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
.ShowShortcutBar = True
.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
.ShortcutBarBackColor = &H1000000
End With
End Function
</SCRIPT>
</BODY>
|
|
75
|
How do I change the background color in the shortcut bar
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
.ShowShortcutBar = True
.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
.ShortcutBarBackColor = RGB(255,0,0)
End With
End Function
</SCRIPT>
</BODY>
|
|
74
|
How can I programmatically change expand or collapse the shortcut bar
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
.ShowShortcutBar = True
.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
.ExpandShortcutCount = 1
End With
End Function
</SCRIPT>
</BODY>
|
|
73
|
How do I change the icon for the expanding or collapsing the shortcut bar
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
.ShowShortcutBar = True
.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
.ExpandShortcutImage = 3
End With
End Function
</SCRIPT>
</BODY>
|
|
72
|
How can I enable or disable resizing the shortcut bar
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
.ShowShortcutBar = True
.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
.ExpandShortcutCount = 1
.AllowResizeShortcutBar = False
End With
End Function
</SCRIPT>
</BODY>
|
|
71
|
How do I specify the height of the shortcut bar
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
.ShowShortcutBar = True
.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
.ExpandShortcutCount = 1
.ShortcutBarHeight = 16
End With
End Function
</SCRIPT>
</BODY>
|
|
70
|
How do I select a shortcut
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
.ShowShortcutBar = True
.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
.ExpandShortcutCount = 1
.SelectShortcut = "Set <img>2</img>"
End With
End Function
</SCRIPT>
</BODY>
|
|
69
|
How do I show or hide the shortcut bar
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
.ShowShortcutBar = True
.Groups.Add("Group 1").Shortcut = "Set <img>1</img>"
.Groups.Add("Group 2").Shortcut = "Set <img>1</img>"
.Groups.Add("Group 3").Shortcut = "Set <img>2</img>"
.Groups.Add("Group 4").Shortcut = "Set <img>2</img>"
.ExpandShortcutCount = 1
End With
End Function
</SCRIPT>
</BODY>
|
|
68
|
How do I access the groups collection
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
.Groups.Add "Group 1"
End With
End Function
</SCRIPT>
</BODY>
|
|
67
|
Can I change the visual effect, appearance for the anchor, hyperlink elements, in HTML captions, after the user clicks it
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
.FormatAnchor(False) = "<b><u><fgcolor=FF0000> </fgcolor></u></b>"
.HighlightItemType = 0
.HandCursor = False
.Groups.Add("Group <a1><b>1</b></a>").CaptionFormat = 1
End With
End Function
</SCRIPT>
</BODY>
|
|
66
|
Can I change the visual effect, appearance for the anchor, hyperlink elements, in HTML captions, after the user clicks it
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
.FormatAnchor(False) = "<b><u><fgcolor=FF0000> </fgcolor></u></b>"
.HighlightItemType = 0
.HandCursor = False
With .Groups.Add("Group 1")
.AddItem("Item <a1><b>1</b></a>").CaptionFormat = 1
.Expanded = True
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
65
|
Can I change the visual effect, appearance for the anchor, hyperlink elements, in HTML captions
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
.HighlightItemType = 0
.HandCursor = False
.FormatAnchor(True) = "<b><u><fgcolor=FF0000> </fgcolor></u></b>"
.Groups.Add("Group <a1><b>1</b></a>").CaptionFormat = 1
End With
End Function
</SCRIPT>
</BODY>
|
|
64
|
Can I change the visual effect, appearance for the anchor, hyperlink elements, in HTML captions
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
.HighlightItemType = 0
.HandCursor = False
.FormatAnchor(True) = "<b><u><fgcolor=FF0000> </fgcolor></u></b>"
With .Groups.Add("Group 1")
.AddItem("Item <a1><b>1</b></a>").CaptionFormat = 1
.Expanded = True
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
63
|
How can I add several pictures and icons to an item
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
.HTMLPicture("pic2") = "c:\exontrol\images\auction.gif"
With .Groups.Add("Group 1")
.ItemHeight = 48
With .AddItem("<img>pic1</img> te <img>1:4</img><img>1:4</img><img>1:4</img><img>1</img> xt <img>pic2</img>")
.Image = 2
.CaptionFormat = 1
End With
.Expanded = True
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
62
|
How can I add several pictures and icons to an item
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
.HTMLPicture("pic2") = "c:\exontrol\images\auction.gif"
With .Groups.Add("Group 1")
.ItemHeight = 48
With .AddItem("<img>pic1</img> te <img>1:4</img><img>1:4</img><img>1:4</img><img>1</img> xt <img>pic2</img>")
.Image = 2
.CaptionFormat = 1
End With
.Expanded = True
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
61
|
How can I add several pictures to an item
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
.HTMLPicture("pic2") = "c:\exontrol\images\auction.gif"
With .Groups.Add("Group 1")
.ItemHeight = 48
.AddItem("<img>pic1</img> text <img>pic2</img>").CaptionFormat = 1
.Expanded = True
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
60
|
How can I add several pictures to a group
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
.HTMLPicture("pic2") = "c:\exontrol\images\auction.gif"
.GroupHeight = 48
With .Groups.Add("<img>pic1</img> te <img>1:4</img><img>1:4</img><img>1:4</img><img>1</img> xt <img>pic2</img>")
.Image = 2
.CaptionFormat = 1
.Picture = ExplorerBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\colorize.gif`)")
.AddItem "Item 1"
.AddItem "Item 2"
.Expanded = True
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
59
|
How can I add several pictures and icons to a group
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
.HTMLPicture("pic2") = "c:\exontrol\images\auction.gif"
.GroupHeight = 48
.Groups.Add("<img>pic1</img> te <img>1:4</img><img>1:4</img><img>1:4</img><img>1</img> xt <img>pic2</img>").CaptionFormat = 1
End With
End Function
</SCRIPT>
</BODY>
|
|
58
|
How can I add several pictures to a group
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
.HTMLPicture("pic2") = "c:\exontrol\images\auction.gif"
.GroupHeight = 48
With .Groups.Add("<img>pic1</img> text <img>pic2</img>")
.CaptionFormat = 1
.Picture = ExplorerBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\colorize.gif`)")
.AddItem "Item 1"
.AddItem "Item 2"
.Expanded = True
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
57
|
How can I add several pictures to a group
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
.HTMLPicture("pic2") = "c:\exontrol\images\auction.gif"
.GroupHeight = 48
.Groups.Add("<img>pic1</img> text <img>pic2</img>").CaptionFormat = 1
End With
End Function
</SCRIPT>
</BODY>
|
|
56
|
How do I force refreshing the control
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
With .Groups.Add("Group 1")
.Expanded = True
.AddItem "Item 1"
End With
.Refresh
End With
End Function
</SCRIPT>
</BODY>
|
|
55
|
How can show or hide the focus rectangle
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
.ShowFocusRect = False
With .Groups.Add("Group 1")
.Expanded = True
.AddItem "Item 1"
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
54
|
I've seen that the width of the tooltip is variable. Can I make it larger
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
.ToolTipWidth = 328
.Groups.Add("ToolTip").ToolTip = "<font Tahoma;11>T</font>his is an HTML <b>tooltip</b> assigned to a group."
End With
End Function
</SCRIPT>
</BODY>
|
|
53
|
How do I let the tooltip being displayed longer
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
.ToolTipPopDelay = 10000
.Groups.Add("ToolTip").ToolTip = "<font Tahoma;11>T</font>his is an HTML <b>tooltip</b> assigned to a group."
End With
End Function
</SCRIPT>
</BODY>
|
|
52
|
Can I change the default border of the tooltip, using your EBN files
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
.ToolTipDelay = 1
.ToolTipWidth = 364
.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
.Background(64) = &H1000000
.Groups.Add("ToolTip").ToolTip = "<font Tahoma;11>T</font>his is an HTML <b>tooltip</b> assigned to a group."
End With
End Function
</SCRIPT>
</BODY>
|
|
51
|
Can I change the background color for the tooltip
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
.ToolTipDelay = 1
.ToolTipWidth = 364
.Background(65) = RGB(255,0,0)
.Groups.Add("ToolTip").ToolTip = "<font Tahoma;11>T</font>his is an HTML <b>tooltip</b> assigned to a group."
End With
End Function
</SCRIPT>
</BODY>
|
|
50
|
Does the tooltip support HTML format
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
.ToolTipDelay = 1
.ToolTipWidth = 364
.Groups.Add("ToolTip").ToolTip = "<font Tahoma;11>T</font>his is an HTML <b>tooltip</b> assigned to a <fgcolor=FF0000>group</fgcolor>"
End With
End Function
</SCRIPT>
</BODY>
|
|
49
|
Can I change the forecolor for the tooltip
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
.ToolTipDelay = 1
.ToolTipWidth = 364
.Background(66) = RGB(255,0,0)
.Groups.Add("ToolTip").ToolTip = "This is a bit of text that's shown when the cursor hovers the group."
End With
End Function
</SCRIPT>
</BODY>
|
|
48
|
Can I change the foreground color for the tooltip
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
.ToolTipDelay = 1
.ToolTipWidth = 364
.Groups.Add("ToolTip").ToolTip = "<fgcolor=FF0000>This is a bit of text that's shown when the cursor hovers the group.</fgcolor>"
End With
End Function
</SCRIPT>
</BODY>
|
|
47
|
Can I change the font for the tooltip
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
.ToolTipDelay = 1
.ToolTipWidth = 364
.Groups.Add("ToolTip").ToolTip = "<font Tahoma>This is a bit of text that's shown when the cursor hovers the group.</font> Back to the normal font"
End With
End Function
</SCRIPT>
</BODY>
|
|
46
|
Can I change the font for the tooltip
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
.ToolTipDelay = 1
With .ToolTipFont
.Name = "Tahoma"
.Size = 14
End With
.ToolTipWidth = 364
.Groups.Add("ToolTip").ToolTip = "This is a bit of text that's shown when the cursor hovers the group."
End With
End Function
</SCRIPT>
</BODY>
|
|
45
|
How do I disable showing the tooltip for all control
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
.ToolTipDelay = 0
.Groups.Add("ToolTip").ToolTip = "This is a bit of text that's shown when the cursor hovers the group."
End With
End Function
</SCRIPT>
</BODY>
|
|
44
|
How do I show the tooltip quicker
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
.ToolTipDelay = 1
.Groups.Add("ToolTip").ToolTip = "This is a bit of text that's shown when the cursor hovers the group."
End With
End Function
</SCRIPT>
</BODY>
|
|
43
|
How do I call your x-script language
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
With .ExecuteTemplate("Groups.Add(`Group 1`)")
.AddItem "Item 1"
.Expanded = True
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
42
|
How do I call your x-script language
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
.Template = "BackColor = RGB(255,0,0)"
End With
End Function
</SCRIPT>
</BODY>
|
|
41
|
How can I hide a tooltip when the item exceeds its area, so ... are displayed
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
.AllowTooltip = False
With .Groups.Add("Group 1")
.Expanded = True
.AddItem "This isa very long text that should break the control in several pieces"
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
40
|
How can I show a tooltip when the item exceeds its area, so ... are displayed
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
.AllowTooltip = True
With .Groups.Add("Group 1")
.Expanded = True
.AddItem "This isa very long text that should break the control in several pieces"
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
39
|
How do I specify the distance between two groups
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
.BorderGroupHeight = 0
.Groups.Add "Group 1"
.Groups.Add("Group 2").AddItem "Item 2"
End With
End Function
</SCRIPT>
</BODY>
|
|
38
|
How can I change the expand / collapse buttons
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
.ExpandIcon(True) = 1
.ExpandIcon(False) = 2
With .Groups.Add("Group 1")
.AddItem "Item 1"
.Expanded = True
End With
.Groups.Add("Group 2").AddItem "Item 2"
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
37
|
How do I enable or disable the control
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
.Enabled = False
With .Groups.Add("Group 1")
.AddItem("Item 1").Image = 1
.Expanded = True
End With
.Groups.Add("Group 2").AddItem "Item 2"
End With
End Function
</SCRIPT>
</BODY>
|
|
36
|
How do I hide the icons in the right side of the group, the expand / collapse buttons
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
.BeginUpdate
.DisplayExpandIcon = False
.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
With .Groups.Add("Group 1")
.AddItem("Item 1").Image = 1
.Expanded = True
End With
.Groups.Add("Group 2").AddItem "Item 2"
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
35
|
Is there any option to stop using the hand shape cursor, when the cursor hovers an item
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
.BeginUpdate
.HandCursor = False
.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
.HighlightItemType = 0
With .Groups.Add("Group 1")
.AddItem("Item 1").Image = 1
.Expanded = True
End With
.Groups.Add("Group 2").AddItem "Item 2"
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
34
|
How do I specify the color to highlight the item
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
.BeginUpdate
.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
.HyperLinkColor = RGB(255,0,0)
.HighlightItemType = 4
With .Groups.Add("Group 1")
.AddItem("Item 1").Image = 1
.Expanded = True
End With
.Groups.Add("Group 2").AddItem "Item 2"
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
33
|
How can I expand or collapse a group when I click only its right icon
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
.BeginUpdate
.ExpandOnClick = False
.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
.HighlightItemType = 4
With .Groups.Add("Group 1")
.AddItem("Item 1").Image = 1
.Expanded = True
End With
.Groups.Add("Group 2").AddItem "Item 2"
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
32
|
How do I remove the control's borders
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
.BeginUpdate
.Appearance = 0
.BorderWidth = 0
.BorderHeight = 0
.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
.HighlightItemType = 4
With .Groups.Add("Group 1")
.AddItem("Item 1").Image = 1
.Expanded = True
End With
.Groups.Add("Group 2").AddItem "Item 2"
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
31
|
How do I specify width or the height of the control's borders
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
.BeginUpdate
.Appearance = 0
.BorderWidth = 0
.BorderHeight = 0
.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
.HighlightItemType = 4
With .Groups.Add("Group 1")
.AddItem("Item 1").Image = 1
.Expanded = True
End With
.Groups.Add("Group 2").AddItem "Item 2"
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
30
|
How do I access the item from the point
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
End Function
</SCRIPT>
</BODY>
|
|
29
|
How do I access the group from the point
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
End Function
</SCRIPT>
</BODY>
|
|
28
|
How do I specify to highlight the items in the group, when the cursor hovers the item
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
.BeginUpdate
.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
.HighlightItemType = 4
With .Groups.Add("Group 1")
.AddItem("Item 1").Image = 1
.Expanded = True
End With
.Groups.Add("Group 2").AddItem "Item 2"
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
27
|
How do I specify to highlight the items in the group, when the cursor hovers the item
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
.BeginUpdate
.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
.HighlightItemType = 3
With .Groups.Add("Group 1")
.AddItem("Item 1").Image = 1
.Expanded = True
End With
.Groups.Add("Group 2").AddItem "Item 2"
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
26
|
How do I specify to highlight the items in the group, when the cursor hovers the item
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
.BeginUpdate
.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
.HighlightItemType = 2
With .Groups.Add("Group 1")
.AddItem("Item 1").Image = 1
.Expanded = True
End With
.Groups.Add("Group 2").AddItem "Item 2"
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
25
|
How do I specify to highlight the items in the group, when the cursor hovers the item
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
.BeginUpdate
.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
.HighlightItemType = 1
With .Groups.Add("Group 1")
.AddItem("Item 1").Image = 1
.Expanded = True
End With
.Groups.Add("Group 2").AddItem "Item 2"
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
24
|
How do I specify the way the control highlight the items in the group
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
.BeginUpdate
.HighlightItemType = 0
With .Groups.Add("Group 1")
.AddItem "Item 1"
.Expanded = True
End With
.Groups.Add("Group 2").AddItem "Item 2"
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
23
|
Is there any function to avoid painting the control while adding multiple items and groups
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
.BeginUpdate
With .Groups.Add("Group 1")
.AddItem "Item 1"
.Expanded = True
End With
.Groups.Add("Group 2").AddItem "Item 2"
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
22
|
How do I decrease the delay to scroll a group
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
.DelayScroll = 0
With .Groups.Add("Group 1")
.AddItem "Item 1"
.Expanded = True
End With
With .Groups.Add("Group 2")
.AddItem "Item 2"
.Expanded = True
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
21
|
How do I display icons
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
.SmallIcons = True
.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
.Groups.Add("Group 1").Image = 1
End With
End Function
</SCRIPT>
</BODY>
|
|
20
|
How do I display 32x32 icons
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
.SmallIcons = False
.GroupHeight = 36
.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
.Groups.Add("Group 1").Image = 1
End With
End Function
</SCRIPT>
</BODY>
|
|
19
|
How do I specify the height of the groups
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
.GroupHeight = 40
.Groups.Add "Group 1"
.Groups.Add "Group 2"
End With
End Function
</SCRIPT>
</BODY>
|
|
18
|
How do I change the visual appearance of the groups
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
.GroupAppearance = 1
.Groups.Add "Group 1"
.Groups.Add "Group 2"
End With
End Function
</SCRIPT>
</BODY>
|
|
17
|
How do I change the visual appearance of the groups, using your EBN files
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
.BackColorGroup = &H1000000
.Groups.Add "Group 1"
.Groups.Add "Group 2"
End With
End Function
</SCRIPT>
</BODY>
|
|
16
|
How do I change the background color for the groups
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
.BackColorGroup = RGB(255,0,0)
.BackColorGroup2 = RGB(255,0,0)
.Groups.Add "Group 1"
End With
End Function
</SCRIPT>
</BODY>
|
|
15
|
How do I change the background color for the groups
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
.BackColorGroup = RGB(255,0,0)
.Groups.Add "Group 1"
End With
End Function
</SCRIPT>
</BODY>
|
|
14
|
How do I change the control's foreground color
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
.ForeColor = RGB(0,0,255)
.ForeColorGroup = RGB(255,0,0)
With .Groups.Add("Group 1")
.AddItem "Item 1"
.Expanded = True
End With
.Groups.Add "Group 2"
End With
End Function
</SCRIPT>
</BODY>
|
|
13
|
How can I change the control's font
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
.Font.Name = "Tahoma"
.Groups.Add "Group 1"
End With
End Function
</SCRIPT>
</BODY>
|
|
12
|
How do I change the control's foreground color
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
.ForeColor = RGB(255,0,0)
With .Groups.Add("Group 1")
.AddItem "Item 1"
.Expanded = True
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
11
|
How do I change the control's background color
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
.BackColor = RGB(200,200,200)
End With
End Function
</SCRIPT>
</BODY>
|
|
10
|
How do I change the control's border, using your EBN files
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
.Appearance = 16777216 ' &H1000000
End With
End Function
</SCRIPT>
</BODY>
|
|
9
|
How do I remove the control's border
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
.Appearance = 0
End With
End Function
</SCRIPT>
</BODY>
|
|
8
|
How do I put a picture on the center of the control
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
.Picture = ExplorerBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
.PictureDisplay = 17
End With
End Function
</SCRIPT>
</BODY>
|
|
7
|
How do I resize/stretch a picture on the control's background
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
.Picture = ExplorerBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
.PictureDisplay = 49
End With
End Function
</SCRIPT>
</BODY>
|
|
6
|
How do I put a picture on the control's center right bottom side
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
.Picture = ExplorerBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
.PictureDisplay = 34
End With
End Function
</SCRIPT>
</BODY>
|
|
5
|
How do I put a picture on the control's center left bottom side
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
.Picture = ExplorerBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
.PictureDisplay = 32
End With
End Function
</SCRIPT>
</BODY>
|
|
4
|
How do I put a picture on the control's center top side
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
.Picture = ExplorerBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
.PictureDisplay = 1
End With
End Function
</SCRIPT>
</BODY>
|
|
3
|
How do I put a picture on the control's right top corner
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
.Picture = ExplorerBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
.PictureDisplay = 2
End With
End Function
</SCRIPT>
</BODY>
|
|
2
|
How do I put a picture on the control's left top corner
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
.Picture = ExplorerBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
.PictureDisplay = 0
End With
End Function
</SCRIPT>
</BODY>
|
|
1
|
How do I put a picture on the control's background
<BODY onload="Init()">
<OBJECT CLASSID="clsid:3B1C55AF-6DC2-4146-811D-60DA6199DC72" id="ExplorerBar1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With ExplorerBar1
.Picture = ExplorerBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
End With
End Function
</SCRIPT>
</BODY>
|